home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DIRIMP_SX / chngink.sx < prev    next >
Encoding:
Text File  |  1996-02-28  |  885 b   |  29 lines  |  [TEXT/ttxt]
  1. --  ************************************************************************
  2. -- *                                                                         *
  3. -- *               ChangeInkAction Class definition                          *
  4. -- *                                                                          *
  5. -- *    This class changes the ink mode on a SpriteChannelInfo object     *
  6. -- *                                                                           *
  7. --  ************************************************************************
  8.  
  9.  
  10. class ChangeInkAction (Action)
  11.  
  12.     instance variables
  13.     
  14.         inkMode
  15. end
  16.  
  17. method init self {class ChangeInkAction} #rest args #key inkMode:(@Copy) ->
  18. (    
  19.     apply nextMethod self args
  20.     
  21.     self.inkMode := inkMode
  22.     
  23. )
  24.  
  25. method trigger self {class ChangeInkAction} theTarget thePlayer ->
  26. (
  27.     setInk thePlayer.scorePlayer.spriteChannelInfoArray[self.targetNum] self.inkMode
  28. )
  29.